unit FornecedorDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, MainDM, db, QueryConditions;

type

  { TFornecedorData }

  TFornecedorData = class(TMainDataModule)
    FornecedorDatasource: TDatasource;
    FornecedorZQueryativo: TStringField;
    FornecedorZQuerybairro: TStringField;
    FornecedorZQuerycaixa_postal: TStringField;
    FornecedorZQuerycep: TStringField;
    FornecedorZQuerycomplemento: TStringField;
    FornecedorZQuerydesc_cidade: TStringField;
    FornecedorZQueryemail: TStringField;
    FornecedorZQueryendereco: TStringField;
    FornecedorZQueryid_cidade: TLargeintField;
    FornecedorZQueryid_fornecedor: TLargeintField;
    FornecedorZQueryid_pessoa: TLargeintField;
    FornecedorZQueryid_ramo: TLargeintField;
    FornecedorZQuerynome_pessoa: TStringField;
    FornecedorZQuerynota: TStringField;
    FornecedorZQuerynumero: TLongintField;
    FornecedorZQuerytelefone_celular: TStringField;
    FornecedorZQuerytelefone_fax: TStringField;
    FornecedorZQuerytelefone_fixo: TStringField;
    FornecedorZQuerytipo: TStringField;
    FornecedorZQueryuf: TStringField;
    FornecedorZUpdate: TZUpdateSQL;
    FornecedorZQuery: TZQuery;
    procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FornecedorData: TFornecedorData;

implementation

uses ConnectionDM;

{ TFornecedorData }

procedure TFornecedorData.DataModuleCreate(Sender: TObject);
begin
    MainDataSet := FornecedorZQuery;
end;

procedure TFornecedorData.OpenDataSet;
begin
  ConnectionData.EmptyQuery(FornecedorZQuery, 'fornecedor');
end;

procedure TFornecedorData.CloseDataSet;
begin
  FornecedorZQuery.Close();
end;

procedure TFornecedorData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
   ConnectionData.OpenQueryConditions(FornecedorZQuery, Tabela, Condicoes);
end;

initialization
  {$I fornecedordm.lrs}

end.

